home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / SPX30.ZIP / SPX_INT.ZIP / SPX_MOS.INT < prev    next >
Encoding:
Text File  |  1994-06-10  |  1.2 KB  |  43 lines
  1. Unit SPX_MOS;
  2.  
  3. {$X+,O+ }
  4. { SPX Library Version 3.0  Copyright 1994 Scott D. Ramsay }
  5.  
  6. Interface
  7.  
  8. Uses dos,spx_fnc;
  9.  
  10. const
  11.    visible     : boolean = false;
  12.    mousehere   : boolean = false;
  13.    mousewason  : boolean = false;
  14.    nomouse     : boolean = true;
  15.    mouseoncall : boolean = false;
  16.    mseshp      : array[0..31] of word =
  17.                  ($1fff,$0fff,$07ff,$03ff,$07ff,$03ff,$e7ff,$ffff,
  18.                   $ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff,
  19.                   $0000,$4000,$6000,$7000,$6000,$1000,$0000,$0000,
  20.                   $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000);
  21.  
  22.  
  23. var
  24.    m1,m2,m3,m4 : integer;
  25.  
  26. procedure mset(var m1,m2,m3,m4:integer);
  27. function mousereset:integer;
  28. procedure mouseon;
  29. function mouseoff:boolean;
  30. procedure getmouse(var m2,m3,m4:integer);
  31. procedure setmouse(m3,m4:integer);
  32. procedure getmousepresses(var m2,m3,m4:integer);
  33. procedure getmousereleases(var m2,m3,m4:integer);
  34. procedure getmousemotion(var m3,m4:integer);
  35. procedure setmousecursor(m2,m3:integer; var mask);
  36. procedure setmouseratio(m3,m4:integer);
  37. procedure setmouseoff(x1,y1,x2,y2:integer);
  38. procedure setmousepage(f:byte);
  39. procedure cleanmouse;
  40. procedure chkmouseon;
  41. procedure setdefptr;
  42.  
  43.